home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 4
/
64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64
/
listing 06.d
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
311b
|
11 lines
20000 rem formatierte textausgabe ----------------------------------------------
20010 ifx$=""then20090
20020 iflen(x$)<40thenprintx$:goto20090
20030 iflen(x$)=40thenprintx$;:goto20090
20040 i$=left$(x$,41):ic=0:fori=1tolen(i$):ifmid$(i$,i,1)=" "thenic=i
20050 nexti:ific=0thenprintx$:goto20090
20060 i$=left$(i$,ic-1):iflen(i$)=40thenprinti$;
20070 iflen(i$)<40thenprinti$
20080 x$=right$(x$,len(x$)-ic):goto20010
20090 return